inherited formTabelaPreco: TformTabelaPreco
  Caption = 'Tabela de Pre'#231'os'
  ClientHeight = 396
  ClientWidth = 720
  ExplicitWidth = 736
  ExplicitHeight = 434
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TPageControl
    Width = 720
    Height = 332
    ExplicitWidth = 720
    ExplicitHeight = 332
    inherited tbsGrid: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 712
      ExplicitHeight = 322
      inherited dbgConsulta: TDBGrid
        Top = 55
        Width = 712
        Height = 267
        DataSource = dsGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'Prp_Cd'
            Title.Caption = 'Tabela'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Con_Ds'
            Title.Caption = 'Conv'#234'nio'
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Prp_TipoPlano'
            Title.Caption = 'C'#243'd.Plano'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Tpp_Ds'
            Title.Caption = 'Plano'
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Prp_VersaoProcedimento'
            Title.Caption = 'Vers'#227'o'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Prp_Procedimento'
            Title.Caption = 'C'#243'd. Procedimento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pro_Ds'
            Title.Caption = 'Procedimento'
            Width = 342
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Prp_Preco'
            Title.Caption = 'Pre'#231'o'
            Visible = True
          end>
      end
      inherited pnlFiltro: TPanel
        Width = 712
        Height = 55
        ExplicitWidth = 712
        ExplicitHeight = 55
        object OdontoLabel1: TOdontoLabel
          Left = 16
          Top = 8
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object edtCodigo: TOdontoNumero
          Left = 16
          Top = 24
          Width = 77
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 0
          CorFoco = 15461355
        end
      end
    end
    inherited tbsficha: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 712
      ExplicitHeight = 322
      object OdontoLabel3: TOdontoLabel
        Left = 152
        Top = 72
        Width = 65
        Height = 13
        Caption = 'Procedimento'
      end
      object OdontoLabel4: TOdontoLabel
        Left = 312
        Top = 16
        Width = 26
        Height = 13
        Caption = 'Plano'
      end
      object OdontoLabel5: TOdontoLabel
        Left = 80
        Top = 16
        Width = 45
        Height = 13
        Caption = 'Conv'#234'nio'
      end
      object OdontoLabel6: TOdontoLabel
        Left = 16
        Top = 72
        Width = 33
        Height = 13
        Caption = 'Vers'#227'o'
      end
      object OdontoLabel7: TOdontoLabel
        Left = 576
        Top = 72
        Width = 27
        Height = 13
        Caption = 'Pre'#231'o'
      end
      object OdontoLabel8: TOdontoLabel
        Left = 16
        Top = 16
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
      end
      object dblVersaoProc: TDBLookupOdontoEdit
        Left = 16
        Top = 88
        Width = 124
        Height = 21
        DataField = 'Prp_VersaoProcedimento'
        DataSource = dsCadastro
        KeyField = 'Ver_Cd'
        ListField = 'Ver_Cd'
        ListSource = dsVersaoProcedimento
        TabOrder = 3
        CorFoco = 15461355
      end
      object dbeProcedimento: TDBOdontoEdit
        Left = 152
        Top = 88
        Width = 82
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Prp_Procedimento'
        DataSource = dsCadastro
        TabOrder = 4
        CorFoco = 15461355
      end
      object dblProcedimento: TDBLookupOdontoEdit
        Left = 240
        Top = 88
        Width = 321
        Height = 21
        DataField = 'Prp_Procedimento'
        DataSource = dsCadastro
        KeyField = 'Pro_Cd'
        ListField = 'Pro_Cd; Pro_Ds'
        ListFieldIndex = 1
        ListSource = dsProcedimento
        TabOrder = 5
        CorFoco = 15461355
      end
      object dbePreco: TDBOdontoEdit
        Left = 576
        Top = 88
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Prp_Preco'
        DataSource = dsCadastro
        TabOrder = 6
        CorFoco = 15461355
      end
      object dblConvenio: TDBLookupOdontoEdit
        Left = 80
        Top = 32
        Width = 218
        Height = 21
        DataField = 'Prp_Convenio'
        DataSource = dsCadastro
        KeyField = 'Con_Cd'
        ListField = 'Con_Ds'
        ListSource = dsConvenio
        TabOrder = 1
        OnClick = dblConvenioCloseUp
        OnCloseUp = dblConvenioCloseUp
        CorFoco = 15461355
      end
      object dblPlano: TDBLookupOdontoEdit
        Left = 312
        Top = 32
        Width = 249
        Height = 21
        DataField = 'Prp_TipoPlano'
        DataSource = dsCadastro
        KeyField = 'Tpp_Cd'
        ListField = 'Tpp_Ds'
        ListSource = dsTipoPlano
        TabOrder = 2
        CorFoco = 15461355
      end
      object dbeCodigo: TDBOdontoEdit
        Left = 16
        Top = 32
        Width = 49
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Prp_Cd'
        DataSource = dsCadastro
        TabOrder = 0
        CorFoco = 15461355
      end
    end
  end
  inherited pnlBotoes: TPanel
    Width = 720
    ExplicitWidth = 720
    inherited imgBotoes: TImage
      Width = 718
      ExplicitWidth = 667
    end
  end
  inherited statCadastro: TStatusBar
    Top = 371
    Width = 720
    ExplicitTop = 371
    ExplicitWidth = 720
  end
  object qCadastro: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Prp_Cd'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Prp_Cd,'
      'Prp_TipoPlano,'
      'Prp_Convenio,'
      'Prp_Ds,'
      'Prp_VersaoProcedimento,'
      'Prp_Procedimento,'
      'Prp_Preco'
      'FROM PrecoPlano'
      'WHERE Prp_Cd = :Prp_Cd')
    Left = 72
    Top = 240
    object qCadastroPrp_Cd: TAutoIncField
      FieldName = 'Prp_Cd'
      ReadOnly = True
    end
    object qCadastroPrp_TipoPlano: TIntegerField
      FieldName = 'Prp_TipoPlano'
      Required = True
    end
    object qCadastroPrp_Ds: TStringField
      FieldName = 'Prp_Ds'
      Size = 40
    end
    object qCadastroPrp_VersaoProcedimento: TStringField
      FieldName = 'Prp_VersaoProcedimento'
      FixedChar = True
      Size = 7
    end
    object qCadastroPrp_Procedimento: TStringField
      FieldName = 'Prp_Procedimento'
      FixedChar = True
      Size = 8
    end
    object qCadastroPrp_Preco: TBCDField
      FieldName = 'Prp_Preco'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      Precision = 19
    end
    object qCadastroPrp_Convenio: TIntegerField
      FieldName = 'Prp_Convenio'
    end
  end
  object qConvenio: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'SELECT Con_Cd, '
      '       Con_Ds'
      'FROM Convenio ')
    Left = 104
    Top = 240
    object qConvenioCon_Cd: TIntegerField
      FieldName = 'Con_Cd'
      ReadOnly = True
    end
    object qConvenioCon_Ds: TStringField
      FieldName = 'Con_Ds'
      Size = 40
    end
  end
  object dsCadastro: TDataSource
    DataSet = qCadastro
    Left = 72
    Top = 272
  end
  object dsConvenio: TDataSource
    DataSet = qConvenio
    Left = 104
    Top = 272
  end
  object qTipoPlano: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    DataSource = dsConvenio
    Parameters = <
      item
        Name = 'Con_Cd'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Tpp_Cd, Tpp_Ds '
      'FROM Convenio'
      '  JOIN TipoPlano ON Tpp_Convenio = Con_Cd '
      'WHERE Con_Cd = :Con_Cd')
    Left = 136
    Top = 240
    object qTipoPlanoTpp_Cd: TIntegerField
      FieldName = 'Tpp_Cd'
      ReadOnly = True
    end
    object qTipoPlanoTpp_Ds: TStringField
      FieldName = 'Tpp_Ds'
      Size = 40
    end
  end
  object dsTipoPlano: TDataSource
    DataSet = qTipoPlano
    Left = 136
    Top = 272
  end
  object qGrid: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'SELECT Prp_Cd, '
      '       Prp_TipoPlano, '
      '       Prp_VersaoProcedimento, '
      '       Prp_Procedimento, '
      '       Prp_Preco, '
      '       TipoPlano.Tpp_Ds, '
      '       Procedimento.Pro_Ds,'
      '       Convenio.Con_Ds,'
      '       Prp_Convenio '
      'FROM PrecoPlano '
      '  JOIN TipoPlano ON Tpp_Cd = Prp_TipoPlano '
      '  JOIN Procedimento ON Pro_Cd = Prp_Procedimento '
      '                    AND Pro_Versao = Prp_VersaoProcedimento '
      '  JOIN Convenio ON Con_Cd = Prp_Convenio')
    Left = 40
    Top = 240
    object qGridPrp_Cd: TIntegerField
      FieldName = 'Prp_Cd'
      ReadOnly = True
    end
    object qGridPrp_TipoPlano: TIntegerField
      FieldName = 'Prp_TipoPlano'
    end
    object qGridPrp_VersaoProcedimento: TStringField
      FieldName = 'Prp_VersaoProcedimento'
      FixedChar = True
      Size = 7
    end
    object qGridPrp_Procedimento: TStringField
      FieldName = 'Prp_Procedimento'
      FixedChar = True
      Size = 8
    end
    object qGridPrp_Preco: TBCDField
      FieldName = 'Prp_Preco'
      DisplayFormat = ',0.00'
      Precision = 19
    end
    object qGridTpp_Ds: TStringField
      FieldName = 'Tpp_Ds'
      Size = 40
    end
    object qGridPro_Ds: TStringField
      FieldName = 'Pro_Ds'
      Size = 100
    end
    object qGridCon_Ds: TStringField
      FieldName = 'Con_Ds'
      Size = 40
    end
    object qGridPrp_Convenio: TIntegerField
      FieldName = 'Prp_Convenio'
    end
  end
  object dsGrid: TDataSource
    DataSet = qGrid
    Left = 40
    Top = 272
  end
  object dsVersaoProcedimento: TDataSource
    DataSet = qVersaoProcedimento
    Left = 168
    Top = 272
  end
  object qVersaoProcedimento: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'SELECT Ver_Cd,'
      '     Ver_Ds'
      'FROM VersaoProcedimento')
    Left = 168
    Top = 240
  end
  object qProcedimento: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    DataSource = dsVersaoProcedimento
    Parameters = <
      item
        Name = 'Ver_Cd'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 7
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Pro_Cd, Pro_Ds'
      'FROM Procedimento '
      'WHERE Pro_Versao = :Ver_Cd'
      '      AND ISNULL(Pro_Status, '#39#39') <> '#39'I'#39)
    Left = 200
    Top = 240
  end
  object dsProcedimento: TDataSource
    DataSet = qProcedimento
    Left = 200
    Top = 272
  end
  object qDinamica: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    Left = 232
    Top = 240
  end
end
